home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
XSYSOP09.ZIP
/
XSYSOP.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-05-02
|
6KB
|
256 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING001
String STRING002
;------------------------------------------------------------------------------
If (!Exist(PPEPath() + "xsysop.cfg")) FCreate 1, PPEPath() + "xsysop.cfg", 2, 0
FPutLn 1, "110"
FPutLn 1, "15"
FPutLn 1, "27 2"
FPutLn 1, ""
FPutLn 1, ""
FPutLn 1, "--------------------------------------------------------------------"
FPutLn 1, " xSYSOP cONFIGURATION fILE!"
FPutLn 1, "--------------------------------------------------------------------"
FPutLn 1, " Line One: security level needed to access the ppe"
FPutLn 1, " Line Two: color of users input"
FPutLn 1, " x/y co-ordinates of user input"
FClose 1
GetUser
FOpen 2, PPEPath() + "xsysop.cfg", 2, 0
FGet 2, INTEGER001
FGet 2, INTEGER002
FGet 2, STRING001
FClose 2
If (INTEGER001 == "") INTEGER001 = 110
If (INTEGER002 == "") INTEGER002 = 15
If (STRING001 == "") STRING001 = "27 2"
Tokenize STRING001
INTEGER003 = GetToken()
INTEGER004 = GetToken()
If (INTEGER001 > U_Sec) End
GetUser
If (U_Sec > INTEGER001) Newline
PrintLn "@X0CA@X04ccess @X0CD@X04enied@X08!"
PrintLn ""
Wait
End
If (!Exist(PPEPath() + "xsysop.pcb")) Newline
PrintLn "@X0CE@X04rror@X08! @X0Cx@X04SYSOP@X08.@X04PCB @X0Cw@X04as @X0Cn@X04ot @X0Cf@X04ound@X08!"
PrintLn "@X0CN@X04otify @X0Ct@X04he @X0Co@X04perator @X0Ca@X08.@X04s@X08.@X04a@X08.@X04p@X08!"
PrintLn ""
Wait
End
Print "@CLS@@POFF@"
DispFile PPEPath() + "xsysop.pcb", 1
AnsiPos 22, 15
Print "@X08xSYSOP, a dream utility for PCBoard!"
Delay 4
AnsiPos 22, 15
Print "@X07xSYSOP, a dream utility for PCBoard!"
Delay 4
AnsiPos 22, 15
Print "@X0FxSYSOP, a dream utility for PCBoard!"
Delay 3
AnsiPos 22, 15
Print "@X0Fx@X0BS@X03YSOP@X08, @X0Fa d@X0Br@X03eam @X0Fu@X0Bt@X03ility @X0Ff@X0Bo@X03r @X0FP@X0BC@X03Board@X08!"
AnsiPos 1, 1
PrintLn "@X07 "
PrintLn " @X08╚ @X0Be@X03nter @X0Bn@X03umber@X08/@X0Bo@X03ption@X07: "
PrintLn "@X08-%--------------------------------------%--------------------------------------"
PrintLn " @X08|@X07 @X08 @X091@X07 @X0FM@X07anage @X0FC@X07aller @X0Fl@X07og @X08|@X07 @X09a @X07 @X0FL@X07ogoff @X0Fa@X07lternate @X0Fn@X07ode "
PrintLn " @X08|@X07 @X08 @X092@X07 @X0FV@X07iew @X0Fn@X07ode @X0FC@X07aller @X0Fl@X07og @X08|@X07 @X09b @X07 @X0FR@X07ecycle @X0Fa@X07 @X0Fn@X07ode "
PrintLn " @X08|@X07 @X08 @X093@X07 @X0FR@X07emote @X0Fd@X07rop @X0Ft@X07o @X0FD@X07OS @X08|@X07 @X09c@X07 @X0FU@X07ser @X0Fm@X07aintenance "
PrintLn " @X08|@X07 @X08 @X094@X07 @X0FE@X07xecute @X0FD@X07OS @X0FC@X07ommand @X08|@X07 @X09d@X07 @X0FP@X07ack @X0Fu@X07ser @X0Ff@X07ile "
PrintLn " @X08|@X07 @X08 @X095@X07 @X0FD@X07rop @X0Fn@X07ode @X0Ft@X07o @X0FD@X07OS @X08|@X07 @X09e@X07 @X0FV@X07iew/@X0FP@X07rint @X0Fu@X07ser @X0Fl@X07ist "
PrintLn " @X08|@X07 @X08 @X096@X07 @X0FV@X07iew @X0Fa@X07 @X0FF@X07ile @X08|@X07 @X09f@X07 @X0FP@X07ack/@X0Fr@X07enumber @X0Fm@X07essages "
PrintLn " @X08|@X07 @X08 @X097@X08 @X07 @X0FV@X07iew @X0Fu@X07sers @X0Fc@X07urrently @X0Fo@X07nline @X08|@X07 @X09g@X07 @X0FR@X07ecover @X0Fa@X07 @X0Fk@X07illed @X0Fm@X07essage "
PrintLn " @X08`--------------------------------------| @X09h @X07 @X0FL@X07ist @X0Fm@X07essage @X0Fh@X07eaders "
PrintLn " @X08`------------------------- --- -- - @X07"
:LABEL001
AnsiPos INTEGER003, INTEGER004
Color INTEGER002
While ((STRING002 == "")) STRING002 = Inkey()
While ((Upper(STRING002) == 1)) Print STRING002
Color 7
Cls
Command 0, "1"
End
Goto LABEL002
While ((Upper(STRING002) == 2)) Print STRING002
Color 7
Cls
Command 0, "2"
End
Goto LABEL002
While ((Upper(STRING002) == 3)) Print STRING002
Color 7
Cls
Command 0, "3"
End
Goto LABEL002
While ((Upper(STRING002) == 4)) Print STRING002
Color 7
Cls
Command 0, "4"
End
Goto LABEL002
While ((Upper(STRING002) == 5)) Print STRING002
Color 7
Cls
Command 0, "5"
End
Goto LABEL002
While ((Upper(STRING002) == 6)) Print STRING002
Color 7
Cls
Command 0, "6"
End
Goto LABEL002
While ((Upper(STRING002) == 7)) Print STRING002
Color 7
Cls
Command 0, "7"
End
Goto LABEL002
While ((Upper(STRING002) == "A")) Print STRING002
Color 7
Cls
Command 0, "8"
End
Goto LABEL002
While ((Upper(STRING002) == "B")) Print STRING002
Color 7
Cls
Command 0, "9"
End
Goto LABEL002
While ((Upper(STRING002) == "C")) Print STRING002
Color 7
Cls
Command 0, "10"
End
Goto LABEL002
While ((Upper(STRING002) == "D")) Print STRING002
Color 7
Cls
Command 0, "11"
End
Goto LABEL002
While ((Upper(STRING002) == "E")) Print STRING002
Color 7
Cls
Command 0, "12"
End
Goto LABEL002
While ((Upper(STRING002) == "F")) Print STRING002
Color 7
Cls
Command 0, "13"
End
Goto LABEL002
While ((Upper(STRING002) == "G")) Print STRING002
Color 7
Cls
Command 0, "14"
End
Goto LABEL002
While ((Upper(STRING002) == "H")) Print STRING002
Color 7
Cls
Command 0, "15"
End
Goto LABEL002
While ((Upper(STRING002) == Chr(13))) Print STRING002
Color 7
Cls
End
Goto LABEL002
If (Upper(STRING002) == Chr(27)) Print STRING002
Color 7
Cls
End
:LABEL002
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 20 End
; 17 Cls
; 2 Wait
; 18 Color
; 18 Goto
; 6 Let
; 22 Print
; 17 PrintLn
; 25 If
; 1 DispFile
; 1 FCreate
; 1 FOpen
; 2 FClose
; 3 FGet
; 11 FPutLn
; 2 GetUser
; 3 Delay
; 2 Newline
; 1 Tokenize
; 6 AnsiPos
; 15 Command
;
;
; ■ Functions used :
;
; 5 +
; 21 ==
; 2 >
; 2 !
; 17 Upper()
; 2 Chr()
; 1 Inkey()
; 5 PPEPath()
; 2 GetToken()
; 2 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------